/*Joseph A. Coll
FD and Stereotypes
7/9/2023*/

use "Coll Stereotypes Threat White Disenfranchisement Support Data Cleaned.dta", clear

********************************************************************************
********************************************************************************
********************************************************************************
*Manuscript Tables and Figures
********************************************************************************
********************************************************************************
********************************************************************************

********************************************************************************
*T1-Perceptions of Violence by Race Among White Americans
********************************************************************************
*Black Violence
	tab stereo_black_violent [aw=V200010a]
	sum stereo_black_violent [aw=V200010a]
	ci means stereo_black_violent [aw=V200010a]

*White Violence
	tab stereo_white_violent [aw=V200010a]
	sum stereo_white_violent [aw=V200010a]
	ci means stereo_white_violent [aw=V200010a]
	
********************************************************************************
*T2-Summary Stats
********************************************************************************
reg supports_fd_scale /// DV
c.stereo_white_violent c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 dem_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
gen in_white_violence_sample =1 if e(sample)==1

reg supports_fd_scale /// DV
c.stereo_black_violent c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
age educ income_mean /// Demographics
rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store black_violent_ols
gen in_black_violence_sample =1 if e(sample)==1

sum supports_fd_scale /// DV
stereo_black_violent stereo_white_violent stereo_violent_black_diff3 stereo_lazy_black_diff3  ft_black racism_scale2_1 racial_importance /// Racism
age educ income_mean /// Demographics
dem_w_lean rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime if in_black_violence_sample ==1 | in_white_violence_sample ==1 [aw=V200010a]

ci means stereo_black_violent
ci means stereo_white_violent

********************************************************************************
*T3-Perceptions of Racial Violence and Support for Felon Disenfranchisement
********************************************************************************
*Black Violent
reg supports_fd_scale /// DV
c.stereo_black_violent c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
age educ income_mean /// Demographics
rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store black_violent_ols

	margins, at(stereo_black_violent=(1(1)7) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(black_violent_ols, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Perceptions of Black Violence Levels") ///
	xlabel(1(1)7) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white))

*White Violent
reg supports_fd_scale /// DV
c.stereo_white_violent c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store white_violent_ols

	margins, at(stereo_white_violent=(1(1)7) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(white_violent_ols, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Perceptions of White Violence Levels") ///
	xlabel(1(1)7) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white))

*Diff Violent
reg supports_fd_scale /// DV
c.stereo_violent_black_diff3 c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ols

	*Diff violent
	margins, at(stereo_violent_black_diff3=(-1(1)1) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white)) 

	*F1: Predicted Support for Felon Disenfranchisement Varying Violence Perceptions 
	graph combine black_violent_ols white_violent_ols diff_violent3_ols, ycommon

	*Diff violent (graph rescaled)
	margins, at(stereo_violent_black_diff3=(-1(1)1) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white)) scale(*.75)
	
	*Black Affect
	margins, at(ft_black=(0(5)100) /// DV
	stereo_violent_black_diff3=0 stereo_lazy_black_diff3=0 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(ft_ols, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Black Affect") ///
	xlabel(0 "Cold" 100 "Warm") ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white)) scale(*.75)

	*Racial Resentment
	margins, at(racism_scale2_1=(0(1)16) /// DV
	stereo_violent_black_diff3=0 stereo_lazy_black_diff3=0 ft_black=70  racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(racism_scale2_1_ols, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Racial Resentment") ///
	xlabel(0 `" "Low" "Resentment" "' 16 `" "High" "Resentment		" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white)) scale(*.75)
	
	*Partisanship
	margins, at(rep_w_lean=(0(1)1) /// DV
	stereo_violent_black_diff3=0 stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(pid_ols, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Partisanship") ///
	xlabel(0 "Democrat" 1 "Republican		") ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white)) scale(*.75)

	*Ideology
	margins, at(conservativism=(1(1)7) /// DV
	stereo_violent_black_diff3=0 stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(ideo7_ols, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Ideology") ///
	xlabel(1 "V. Lib." 7 "V. Cons.") ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white)) scale(*.75)

	*Crime Spending
	margins, at(spending_crime=(1(1)5) /// DV
	stereo_violent_black_diff3=0 stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12) /// Politics
	atmeans 
	
	marginsplot, name(spending_crime_ols, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Crime Spending Preferences") ///
	xlabel(1 `" "Decrease" "a Lot" "'  5 `" "Increase" "a Lot" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white)) scale(*.75)

	*F2: Support for Felon Disenfranchisement Varying Racial Attitudes, Partisanship, Ideology, and Crime Spending Preferences Among White Americans 
	graph combine diff_violent3_ols ft_ols racism_scale2_1_ols pid_ols ideo7_ols spending_crime_ols, ycommon


esttab black_violent_ols white_violent_ols diff_violent3_ols ///
using Coll_Violence.rtf, replace ///
cells(b(star fmt(3)) se(fmt(3) par)) starlevels( * 0.10 ** 0.05 *** 0.01) ///
label note("Linear regression predicting support for felon disenfranchisement." ///
"All models estimated with robust standard errors clustered by state. *0.10 **0.05 ***0.01.") ///
ar2 obslast ///
nodepvars nobase noomitted eqlabel("") interaction(" x ") ///
order(stereo_black_violent stereo_white_violent stereo_violent_black_diff3 /// Racism
stereo_lazy_black_diff3 ft_black racism_scale2_1 racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime) ///
 title("Table XX: Perceptions of Racial Violence and Support for Felon Disenfranchisement") ///
mlabel("Black Violent" "White Violent" "Black More Violent") 

********************************************************************************
*T4-The Partisan and Identity Conditional Effects of Racial Stereotypes and Support for Felon Disenfranchisement Among White Americans 
********************************************************************************

*PID
reg supports_fd_scale /// DV
c.stereo_violent_black_diff3##rep_w_lean c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ols_rep

	margins, at(stereo_violent_black_diff3=(-1(1)1) rep_w_lean=1 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_rep1, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						White Republicans") ///
	graphregion(color(white)) 

	margins, at(stereo_violent_black_diff3=(-1(1)1) rep_w_lean=0 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_rep0, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						White Democrats") ///
	graphregion(color(white)) 
	
	graph combine diff_violent3_ols_rep1 diff_violent3_ols_rep0, ycommon

*White Racial Importance
*Diff Violent
reg supports_fd_scale /// DV
c.stereo_violent_black_diff3##c.racial_importance c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1  /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ols_ri

	margins, at(stereo_violent_black_diff3=(-1(1)1) racial_importance=5 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_ri5, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						High White Racial Importance") ///
	graphregion(color(white)) 

	margins, at(stereo_violent_black_diff3=(-1(1)1) racial_importance=1 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_ri1, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						Low White Racial Importance") ///
	graphregion(color(white)) 

	graph combine diff_violent3_ols_ri5 diff_violent3_ols_ri1, ycommon

esttab diff_violent3_ols_rep diff_violent3_ols_ri ///
using Coll_Violence_Interactions.rtf, replace ///
cells(b(star fmt(3)) se(fmt(3) par)) starlevels( * 0.10 ** 0.05 *** 0.01) ///
label note("Linear regression predicting support for felon disenfranchisement." ///
"All models estimated with robust standard errors clustered by state. *0.10 **0.05 ***0.01.") ///
ar2 obslast ///
nodepvars nobase noomitted eqlabel("") interaction(" x ") ///
order(stereo_violent_black_diff3 rep_w_lean *.stereo_violent_black_diff3 *.rep_w_lean racial_importance *.racial_importance /// Racism
stereo_lazy_black_diff3 ft_black racism_scale2_1 racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime) ///
 title("Table XX: The Partisan and Identity Conditional Effects of Racial Stereotypes and Support for Felon Disenfranchisement Among White Americans ") ///
mlabel("Black Violent" "White Violent" "Black More Violent") 

********************************************************************************
********************************************************************************
********************************************************************************
*Appendix A:Additional Figures
********************************************************************************
********************************************************************************
********************************************************************************
*Figure A1- Supprot for Felon Disenfranchisement
	tab supports_fd_scale [aw=V200010a]
	hist supports_fd_scale , d percent ///
	fcolor(gs6%60) ///
	lcolor(black) ///
	xtitle("Support for Felon Disenfranchisement") ///
	xlabel(1 "Opposes Greatly" ///
		2 "Opposes Moderately" ///
		3 "Opposes a Little" ///
		4 "Neither" ///
		5 "Favors a Little" ///
		6 "Favors Moderately" ///
		7 "Favors Greatly" , angle(15)) ///
		title("Support for Felon Disenfranchisement") ///
	name(hist_supports_fd_scale_w, replace)

*Figure A2- Perceptions of Black Americans as Violent
	tab stereo_black_violent [aw=V200010a]
	sum stereo_black_violent [aw=V200010a]
	ci means stereo_black_violent [aw=V200010a]
	hist stereo_black_violent, d percent ///
	fcolor(gs6%60) ///
	lcolor(black) ///
	xtitle("Perceptions of Black Violence Levels") ///
	xlabel(1 "Peaceful" ///
		2 "" ///
		3 "" ///
		4 "" ///
		5 "" ///
		6 "" ///
		7 "Violent" , angle(0)) ///
	name(hist_stereo_black_violent, replace)

*Figure A3- Perceptions of White Americans as Violent
	tab stereo_white_violent [aw=V200010a]
	sum stereo_white_violent [aw=V200010a]
	ci means stereo_white_violent [aw=V200010a]
	hist stereo_white_violent, d percent ///
	fcolor(gs6%60) ///
	lcolor(black) ///
	xtitle("Perceptions of White Violence Levels") ///
	xlabel(1 "Peaceful" ///
		2 "" ///
		3 "" ///
		4 "" ///
		5 "" ///
		6 "" ///
		7 "Violent" , angle(0)) ///
	name(hist_stereo_white_violent, replace)

*Figure A4- Difference in Violence Full Scale
	tab stereo_violent_black_diff [aw=V200010a]
	sum stereo_violent_black_diff [aw=V200010a]
	ci means stereo_white_violent [aw=V200010a]
	hist stereo_violent_black_diff, d percent ///
	fcolor(gs6%60) ///
	lcolor(black) ///
	xtitle("Difference in Perceptions of Violence Levels") ///
	xlabel(-6 `" "White More" "Violent"' ///
		-5 -4 -3 -2 -1 ///
		0 "Same" ///
		1 2 3 4 5 ///
		6 `" "Black More" "Violent"' ///
		, angle(0)) ///
	name(hist_stereo_violent_black_diff, replace)

*Figure A5- Difference in Violence Collapsed Scale
	hist stereo_violent_black_diff3, d percent ///
	fcolor(gs6%60) ///
	lcolor(black) ///
	xtitle("Difference in Perceptions of Violence Levels") ///
	xlabel(-1 "White More Violent" ///
		0 "Same" ///
		1 "Black More Violent" ///
		, angle(0)) ///
	name(hist_stereo_violent_black_diff3, replace)

********************************************************************************
********************************************************************************
********************************************************************************
*Appendix B:Robustness Checks
********************************************************************************
********************************************************************************
********************************************************************************

*RC- Alternative IV Measurements
********************************************************************************
*T3-Perceptions of Racial Violence and Support for Felon Disenfranchisement
********************************************************************************
*Black Violent
reg supports_fd_scale /// DV
c.stereo_black_violent3 c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
age educ income_mean /// Demographics
rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store black_violent_ols_altiv

	margins, at(stereo_black_violent=(-1(1)1) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(black_violent_ols_altiv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Perceptions of Black Violence Levels") ///
	xlabel(-1(1)1) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white))

*White Violent
reg supports_fd_scale /// DV
c.stereo_white_violent3 c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store white_violent_ols_altiv

	margins, at(stereo_white_violent=(-1(1)1) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(white_violent_ols_altiv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Perceptions of White Violence Levels") ///
	xlabel(-1(1)1) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white))

*Diff Violent
reg supports_fd_scale /// DV
c.stereo_violent_black_diff c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ols_altiv

	margins, at(stereo_violent_black_diff=(-6(1)6) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_altiv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-6 `" "White" "More" "Violent" "' 0 "Same" 6 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white)) 

	graph combine black_violent_ols_altiv white_violent_ols_altiv diff_violent3_ols_altiv, ycommon

esttab black_violent_ols_altiv white_violent_ols_altiv diff_violent3_ols_altiv ///
using Coll_Violence_altiv.rtf, replace ///
cells(b(star fmt(3)) se(fmt(3) par)) starlevels( * 0.10 ** 0.05 *** 0.01) ///
label note("Linear regression predicting support for felon disenfranchisement." ///
"All models estimated with robust standard errors clustered by state. Perceptions of Black or white violence collapsed to trichotmous variable (-1 Violent, 0 Neither, 1 Peaceful) as opposed to the 1-7 variable used in main analyses, while difference variable ranges from -6 (white much more violent) to 6 (Black much more violent) as opposed to the trichotomous variable used in main analyses. *0.10 **0.05 ***0.01.") ///
ar2 obslast ///
nodepvars nobase noomitted eqlabel("") interaction(" x ") ///
order(stereo_black_violent3 stereo_white_violent3 stereo_violent_black_diff /// Racism
stereo_lazy_black_diff3 ft_black racism_scale2_1 racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime) ///
 title("Table XX: Perceptions of Racial Violence and Support for Felon Disenfranchisement (Alternative Independent Variable Construction)") ///
mlabel("Black Violent" "White Violent" "Black More Violent") 

********************************************************************************
*T4-The Partisan and Identity Conditional Effects of Racial Stereotypes and Support for Felon Disenfranchisement Among White Americans 
********************************************************************************

*PID
reg supports_fd_scale /// DV
c.stereo_violent_black_diff##rep_w_lean c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ols_rep_altiv

	margins, at(stereo_violent_black_diff=(-6(1)6) rep_w_lean=1 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_rep1_altiv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-6 `" "White" "More" "Violent" "' 0 "Same" 6 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						White Republicans") ///
	graphregion(color(white)) 

	margins, at(stereo_violent_black_diff=(-6(1)6) rep_w_lean=0 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_rep0_altiv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-6 `" "White" "More" "Violent" "' 0 "Same" 6 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						White Democrats") ///
	graphregion(color(white)) 
	
	graph combine diff_violent3_ols_rep1_altiv diff_violent3_ols_rep0_altiv, ycommon

*White Racial Importance
*Diff Violent
reg supports_fd_scale /// DV
c.stereo_violent_black_diff##c.racial_importance c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1  /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ols_ri_altiv

	margins, at(stereo_violent_black_diff=(-6(1)6) racial_importance=5 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_ri5_altiv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-6 `" "White" "More" "Violent" "' 0 "Same" 6 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						High White Racial Importance") ///
	graphregion(color(white)) 

	margins, at(stereo_violent_black_diff=(-6(1)6) racial_importance=1 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_ri1_altiv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-6 `" "White" "More" "Violent" "' 0 "Same" 6 `" "Black" "More" "Violent" "' ) ///
	ylabel(1 "Opposes Greatly" ///
	2 "Opposes Moderately" ///
	3 "Opposes a Little" ///
	4 "Neither" ///
	5 "Favors a Little" ///
	6 "Favors Moderately" ///
	7 "Favors Greatly" , angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						Low White Racial Importance") ///
	graphregion(color(white)) 

	graph combine diff_violent3_ols_ri5_altiv diff_violent3_ols_ri1_altiv, ycommon

esttab diff_violent3_ols_rep_altiv diff_violent3_ols_ri_altiv ///
using Coll_Violence_Interactions_altiv.rtf, replace ///
cells(b(star fmt(3)) se(fmt(3) par)) starlevels( * 0.10 ** 0.05 *** 0.01) ///
label note("Linear regression predicting support for felon disenfranchisement." ///
"All models estimated with robust standard errors clustered by state. Perceptions of Black or white violence collapsed to trichotmous variable (-1 Violent, 0 Neither, 1 Peaceful) as opposed to the 1-7 variable used in main analyses, while difference variable ranges from -6 (white much more violent) to 6 (Black much more violent) as opposed to the trichotomous variable used in main analyses. *0.10 **0.05 ***0.01.") ///
ar2 obslast ///
nodepvars nobase noomitted eqlabel("") interaction(" x ") ///
order(stereo_violent_black_diff rep_w_lean *.stereo_violent_black_diff *.rep_w_lean racial_importance *.racial_importance /// Racism
stereo_lazy_black_diff3 ft_black racism_scale2_1 racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime) ///
 title("Table XX: The Partisan and Identity Conditional Effects of Racial Stereotypes and Support for Felon Disenfranchisement Among White Americans ") ///
mlabel("Black Violent" "White Violent" "Black More Violent") 

*RC-Alternative DV Construction
********************************************************************************
*T3-Perceptions of Racial Violence and Support for Felon Disenfranchisement
********************************************************************************
*Black Violent
reg supports_fd /// DV
c.stereo_black_violent c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
age educ income_mean /// Demographics
rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store black_violent_ols_altdv

	margins, at(stereo_black_violent=(1(1)7) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(black_violent_ols_altdv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Perceptions of Black Violence Levels") ///
	xlabel(1(1)7) ///
	ylabel(-1 "Opposes" ///
	0 "Neither" ///
	1 "Favors", angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white))

*White Violent
reg supports_fd /// DV
c.stereo_white_violent c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store white_violent_ols_altdv

	margins, at(stereo_white_violent=(1(1)7) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(white_violent_ols_altdv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Perceptions of White Violence Levels") ///
	xlabel(1(1)7) ///
	ylabel(-1 "Opposes" ///
	0 "Neither" ///
	1 "Favors", angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white))

*Diff Violent
reg supports_fd /// DV
c.stereo_violent_black_diff3 c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ols_altdv

	margins, at(stereo_violent_black_diff3=(-1(1)1) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_altdv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(-1 "Opposes" ///
	0 "Neither" ///
	1 "Favors", angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("") ///
	graphregion(color(white)) 

	graph combine black_violent_ols_altdv white_violent_ols_altdv diff_violent3_ols_altdv, ycommon

esttab black_violent_ols_altdv white_violent_ols_altdv diff_violent3_ols_altdv ///
using Coll_Violence_altdv.rtf, replace ///
cells(b(star fmt(3)) se(fmt(3) par)) starlevels( * 0.10 ** 0.05 *** 0.01) ///
label note("Linear regression predicting support for felon disenfranchisement, measured trichotomously (-1 Opposes, 0 Neither, 1 Supports) as opposed from 1 (Strongly Opposes) to 7 (Strongly Supports)." ///
"All models estimated with robust standard errors clustered by state. *0.10 **0.05 ***0.01.") ///
ar2 obslast ///
nodepvars nobase noomitted eqlabel("") interaction(" x ") ///
order(stereo_black_violent stereo_white_violent stereo_violent_black_diff3 /// Racism
stereo_lazy_black_diff3 ft_black racism_scale2_1 racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime) ///
 title("Table XX: Perceptions of Racial Violence and Support for Felon Disenfranchisement (Alternative Dependent Variable Construction.)") ///
mlabel("Black Violent" "White Violent" "Black More Violent") 

********************************************************************************
*T4-The Partisan and Identity Conditional Effects of Racial Stereotypes and Support for Felon Disenfranchisement Among White Americans 
********************************************************************************

*PID
reg supports_fd /// DV
c.stereo_violent_black_diff3##rep_w_lean c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ols_rep_altdv

	margins, at(stereo_violent_black_diff3=(-1(1)1) rep_w_lean=1 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_rep1_altdv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(-1 "Opposes" ///
	0 "Neither" ///
	1 "Favors", angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						White Republicans") ///
	graphregion(color(white)) 

	margins, at(stereo_violent_black_diff3=(-1(1)1) rep_w_lean=0 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_rep0_altdv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(-1 "Opposes" ///
	0 "Neither" ///
	1 "Favors", angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						White Democrats") ///
	graphregion(color(white)) 
	
	graph combine diff_violent3_ols_rep1_altdv diff_violent3_ols_rep0_altdv, ycommon

*White Racial Importance
*Diff Violent
reg supports_fd /// DV
c.stereo_violent_black_diff3##c.racial_importance c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1  /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ols_ri_altdv

	margins, at(stereo_violent_black_diff3=(-1(1)1) racial_importance=5 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_ri5_altdv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(-1 "Opposes" ///
	0 "Neither" ///
	1 "Favors", angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						High White Racial Importance") ///
	graphregion(color(white)) 

	margins, at(stereo_violent_black_diff3=(-1(1)1) racial_importance=1 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ols_ri1_altdv, replace) ///
 	recastci(rarea) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ylabel(-1 "Opposes" ///
	0 "Neither" ///
	1 "Favors", angle(0)) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						Low White Racial Importance") ///
	graphregion(color(white)) 

	graph combine diff_violent3_ols_ri5_altdv diff_violent3_ols_ri1_altdv, ycommon

esttab diff_violent3_ols_rep_altdv diff_violent3_ols_ri_altdv ///
using Coll_Violence_Interactions_altdv.rtf, replace ///
cells(b(star fmt(3)) se(fmt(3) par)) starlevels( * 0.10 ** 0.05 *** 0.01) ///
label note("Linear regression predicting support for felon disenfranchisement, measured trichotomously (-1 Opposes, 0 Neither, 1 Supports) as opposed from 1 (Strongly Opposes) to 7 (Strongly Supports)." ///
"All models estimated with robust standard errors clustered by state. *0.10 **0.05 ***0.01.") ///
ar2 obslast ///
nodepvars nobase noomitted eqlabel("") interaction(" x ") ///
order(stereo_violent_black_diff3 rep_w_lean *.stereo_violent_black_diff3 *.rep_w_lean racial_importance *.racial_importance /// Racism
stereo_lazy_black_diff3 ft_black racism_scale2_1 racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime) ///
 title("Table XX: The Partisan and Identity Conditional Effects of Racial Stereotypes and Support for Felon Disenfranchisement Among White Americans ") ///
mlabel("Black Violent" "White Violent" "Black More Violent") 

*RC-Ordered Logistic Regression
********************************************************************************
*T3-Perceptions of Racial Violence and Support for Felon Disenfranchisement
********************************************************************************
*Black Violent
ologit supports_fd_scale /// DV
c.stereo_black_violent c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
age educ income_mean /// Demographics
rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store black_violent_ologit

	margins, at(stereo_black_violent=(1(1)7) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(black_violent_ologit, replace) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Perceptions of Black Violence Levels") ///
	xlabel(1(1)7) ///
	ytitle("Probability of Selecting Each Level of" "Support for Felon Disenfranchisement") ///
	yscale(r(0 1)) ///
	ylabel(0(.1)1) ///
	title("") ///
	graphregion(color(white))

*White Violent
ologit supports_fd_scale /// DV
c.stereo_white_violent c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store white_violent_ologit

	margins, at(stereo_white_violent=(1(1)7) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(white_violent_ologit, replace) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Perceptions of White Violence Levels") ///
	xlabel(1(1)7) ///
	ytitle("Probability of Selecting Each Level of" "Support for Felon Disenfranchisement") ///
	yscale(r(0 1)) ///
	ylabel(0(.1)1) ///
	title("") ///
	graphregion(color(white))

*Diff Violent
ologit supports_fd_scale /// DV
c.stereo_violent_black_diff3 c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ologit

	margins, at(stereo_violent_black_diff3=(-1(1)1) /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ologit, replace) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	ytitle("Probability of Selecting Each Level of" "Support for Felon Disenfranchisement") ///
	yscale(r(0 1)) ///
	ylabel(0(.1)1) ///
	title("") ///
	graphregion(color(white)) 

	graph combine black_violent_ologit white_violent_ologit diff_violent3_ologit, ycommon

esttab black_violent_ologit white_violent_ologit diff_violent3_ologit ///
using Coll_Violence_ologit.rtf, replace ///
cells(b(star fmt(3)) se(fmt(3) par)) starlevels( * 0.10 ** 0.05 *** 0.01) ///
label note("Ordered logistic regression predicting support for felon disenfranchisement." ///
"All models estimated with robust standard errors clustered by state. *0.10 **0.05 ***0.01.") ///
pr2 obslast ///
nodepvars nobase noomitted eqlabel("") interaction(" x ") ///
order(stereo_black_violent stereo_white_violent stereo_violent_black_diff3 /// Racism
stereo_lazy_black_diff3 ft_black racism_scale2_1 racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime) ///
 title("Table XX: Perceptions of Racial Violence and Support for Felon Disenfranchisement (Ordered Logistic Regression)") ///
mlabel("Black Violent" "White Violent" "Black More Violent") 

********************************************************************************
*T4-The Partisan and Identity Conditional Effects of Racial Stereotypes and Support for Felon Disenfranchisement Among White Americans 
********************************************************************************

*PID
ologit supports_fd_scale /// DV
c.stereo_violent_black_diff3##rep_w_lean c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1 c.racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ologit_rep

	margins, at(stereo_violent_black_diff3=(-1(1)1) rep_w_lean=1 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ologit_rep1, replace) ///
 	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	yscale(r(0 1)) ///
	ylabel(0(.1)1) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						White Republicans") ///
	graphregion(color(white)) 

	margins, at(stereo_violent_black_diff3=(-1(1)1) rep_w_lean=0 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8 racial_importance=2	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ologit_rep0, replace) ///
 	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	yscale(r(0 1)) ///
	ylabel(0(.1)1) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						White Democrats") ///
	graphregion(color(white)) 
	
	graph combine diff_violent3_ologit_rep1 diff_violent3_ologit_rep0, ycommon

*White Racial Importance
*Diff Violent
ologit supports_fd_scale /// DV
c.stereo_violent_black_diff3##c.racial_importance c.stereo_lazy_black_diff3 c.ft_black c.racism_scale2_1  /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime /// Politics
[pw=V200010a], robust cluster(state_abbrev)
estimates store diff_violent3_ologit_ri

	margins, at(stereo_violent_black_diff3=(-1(1)1) racial_importance=5 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ologit_ri5, replace) ///
 	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	yscale(r(0 1)) ///
	ylabel(0(.1)1) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						High White Racial Importance") ///
	graphregion(color(white)) 

	margins, at(stereo_violent_black_diff3=(-1(1)1) racial_importance=1 /// DV
	stereo_lazy_black_diff3=0 ft_black=70 racism_scale2_1=8	/// Racial Stereotypes
 	age=51 educ=4 income_mean=14 /// Demographics
	rep_w_lean=1 ind_nolean=0 poli_int_politics=3 conservativism=4 perc_black=12 spending_crime=4) /// Politics
	atmeans 
	
	marginsplot, name(diff_violent3_ologit_ri1, replace) ///
	plot1opts(color(black)) ///
	ci1opts(color(black)) ///
	xtitle("Differences in Racial Violence Levels") ///
	xlabel(-1 `" "White" "More" "Violent" "' 0 "Same" 1 `" "Black" "More" "Violent" "' ) ///
	yscale(r(0 1)) ///
	ylabel(0(.1)1) ///
	ytitle("Support for Felon Disenfranchisement") ///
	title("						Low White Racial Importance") ///
	graphregion(color(white)) 

	graph combine diff_violent3_ologit_ri5 diff_violent3_ologit_ri1, ycommon

esttab diff_violent3_ologit_rep diff_violent3_ologit_ri ///
using Coll_Violence_Interactions_ologit.rtf, replace ///
cells(b(star fmt(3)) se(fmt(3) par)) starlevels( * 0.10 ** 0.05 *** 0.01) ///
label note("Ordered logistic  regression predicting support for felon disenfranchisement." ///
"All models estimated with robust standard errors clustered by state. *0.10 **0.05 ***0.01.") ///
pr2 obslast ///
nodepvars nobase noomitted eqlabel("") interaction(" x ") ///
order(stereo_violent_black_diff3 rep_w_lean *.stereo_violent_black_diff3 *.rep_w_lean racial_importance *.racial_importance /// Racism
stereo_lazy_black_diff3 ft_black racism_scale2_1 racial_importance /// Racial Stereotypes
 age educ income_mean /// Demographics
 rep_w_lean ind_nolean poli_int_politics conservativism perc_black spending_crime) ///
 title("Table XX: The Partisan and Identity Conditional Effects of Racial Stereotypes and Support for Felon Disenfranchisement Among White Americans (Ordered Logistic Regression)") ///
mlabel("Black Violent" "White Violent" "Black More Violent") 


